home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / tman.lha / tman / syntax.tex / img12.png < prev    next >
Portable Network Graphic  |  1990-10-02  |  29KB  |  1741x341  |  4-bit (16 colors)
Labels: text | font | screenshot
OCR: Like any read-macro procedure, a list reader is a procedure of two arguments. The first argument must be a port, a (LET ((LIST-READER (MAKE-LIST-READER))) (SET (READ-TABLE-ENTRY *MY-READ-TABLE* #\LEFT-BRACKET) (OBJECT (LAMBDA (PORT CH RTABLE) (IGNORE RTABLE) (LIST->VECTOR (LIST-READER PORT CH))) SELF) T))) ((DELIMITING-READ-MACRO? (SET (READ-TABLE-ENTRY *MY-READ-TABLE* #\RIGHT-BRACKET) (LIST-TERMINATOR LIST-READER))) List readers and terminators handle the DELIMÍTING-READ-MACRO? operation by returning true.